currentpoint THY sub # div /THSY exch def THX sub ! div /THSX exch def